home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / txl / rexxmdl2.lha / RexModula2 / database.rmi next >
Text File  |  1992-02-26  |  825b  |  47 lines
  1. MODULE database;
  2.  
  3. FROM InOut IMPORT WriteString, WriteLn, WriteInt;
  4. FROM XdrM2_database IMPORT TelNo, message, String20, String16;
  5.  
  6. PROCEDURE Enter(VAR m: message; t:TelNo; fn,cn:String20 ; pr:String16);
  7. BEGIN
  8.   m.tag := 2;
  9.   WITH m.some DO
  10.     tel := t;
  11.     project := pr;
  12.     ChName := cn;
  13.     FaName := fn;
  14.   END;
  15. END Enter;
  16.  
  17. CONST ListLength = 73;
  18.  
  19. VAR    i : TelNo;
  20.     m : ARRAY[10..ListLength] OF message;
  21.     NoEntry : message;
  22.  
  23. BEGIN
  24.  
  25.   NoEntry.tag := 1;
  26.  
  27.   FOR i:=10 TO ListLength DO
  28.     m[i].tag := 1;
  29.   END;
  30.  
  31.   Enter(m[22], 22, "Markus", "Endler", "REX" );
  32.   Enter(m[32], 32, "Georg", "Etzkorn", "REX" );
  33.   Enter(m[44], 44, "Frank", "Bieler", "REX" );
  34.  
  35.   i := 1;
  36.   WHILE i # 0 DO
  37.     ACCEPT(d,i);
  38.  
  39.     IF ((i<10) OR (i>ListLength)) THEN
  40.       REPLY(d,NoEntry);
  41.     ELSE
  42.       REPLY(d,m[i]);
  43.     END;
  44.   END;
  45.  
  46. END database.
  47.